home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / orbit / opener.frm < prev    next >
Text File  |  1995-12-05  |  4KB  |  134 lines
  1. VERSION 2.00
  2. Begin Form opener 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Double
  6.    ClientHeight    =   4395
  7.    ClientLeft      =   1260
  8.    ClientTop       =   1545
  9.    ClientWidth     =   7080
  10.    ControlBox      =   0   'False
  11.    Height          =   4800
  12.    Left            =   1200
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    MousePointer    =   11  'Hourglass
  18.    Picture         =   OPENER.FRX:0000
  19.    ScaleHeight     =   4395
  20.    ScaleWidth      =   7080
  21.    Top             =   1200
  22.    Width           =   7200
  23.    Begin SSPanel SSPanel3 
  24.       AutoSize        =   3  'AutoSize Child To Panel
  25.       BevelInner      =   1  'Inset
  26.       BevelWidth      =   2
  27.       Caption         =   "Nathan Brown"
  28.       Font3D          =   3  'Inset w/light shading
  29.       ForeColor       =   &H00FF0000&
  30.       Height          =   495
  31.       Left            =   2400
  32.       MousePointer    =   11  'Hourglass
  33.       TabIndex        =   6
  34.       Top             =   3840
  35.       Width           =   2175
  36.    End
  37.    Begin Timer opentime 
  38.       Interval        =   10000
  39.       Left            =   240
  40.       Top             =   3600
  41.    End
  42.    Begin SSPanel SSPanel2 
  43.       AutoSize        =   3  'AutoSize Child To Panel
  44.       BevelInner      =   1  'Inset
  45.       BevelWidth      =   2
  46.       Caption         =   "Writen By..."
  47.       Font3D          =   3  'Inset w/light shading
  48.       ForeColor       =   &H00FF0000&
  49.       Height          =   495
  50.       Left            =   2640
  51.       MousePointer    =   11  'Hourglass
  52.       TabIndex        =   5
  53.       Top             =   3240
  54.       Width           =   1695
  55.    End
  56.    Begin SSPanel SSPanel1 
  57.       AutoSize        =   3  'AutoSize Child To Panel
  58.       BevelInner      =   1  'Inset
  59.       BevelWidth      =   2
  60.       Caption         =   "Orbital Motion"
  61.       Font3D          =   4  'Inset w/heavy shading
  62.       FontBold        =   -1  'True
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   24
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       ForeColor       =   &H00FF0000&
  69.       Height          =   735
  70.       Left            =   1440
  71.       MousePointer    =   11  'Hourglass
  72.       TabIndex        =   4
  73.       Top             =   960
  74.       Width           =   4215
  75.    End
  76.    Begin SSPanel icon2 
  77.       AutoSize        =   3  'AutoSize Child To Panel
  78.       BevelInner      =   1  'Inset
  79.       BevelWidth      =   2
  80.       ForeColor       =   &H00000000&
  81.       Height          =   735
  82.       Left            =   6240
  83.       MousePointer    =   11  'Hourglass
  84.       TabIndex        =   0
  85.       Top             =   120
  86.       Width           =   735
  87.       Begin PictureBox Picture1 
  88.          AutoRedraw      =   -1  'True
  89.          Height          =   525
  90.          Left            =   105
  91.          MousePointer    =   11  'Hourglass
  92.          Picture         =   OPENER.FRX:5E02
  93.          ScaleHeight     =   495
  94.          ScaleWidth      =   495
  95.          TabIndex        =   1
  96.          Top             =   105
  97.          Width           =   525
  98.       End
  99.    End
  100.    Begin SSPanel icon1 
  101.       AutoSize        =   3  'AutoSize Child To Panel
  102.       BevelInner      =   1  'Inset
  103.       BevelWidth      =   2
  104.       ForeColor       =   &H00000000&
  105.       Height          =   735
  106.       Left            =   120
  107.       MousePointer    =   11  'Hourglass
  108.       TabIndex        =   2
  109.       Top             =   120
  110.       Width           =   735
  111.       Begin PictureBox Picture2 
  112.          AutoRedraw      =   -1  'True
  113.          Height          =   525
  114.          Left            =   105
  115.          MousePointer    =   11  'Hourglass
  116.          Picture         =   OPENER.FRX:6104
  117.          ScaleHeight     =   495
  118.          ScaleWidth      =   495
  119.          TabIndex        =   3
  120.          Top             =   105
  121.          Width           =   525
  122.       End
  123.    End
  124. End
  125.  
  126. Sub opentime_Timer ()
  127.     Load planet
  128.     planet.Show
  129.     
  130.     opener.Hide
  131.     Unload opener
  132. End Sub
  133.  
  134.